0 REM *** ANZAHL DER ANSCHLAEGE ***
1 REM *** FUER NL-10 MEGADRIVER ***
2 REM *** IN PROGRAMM SCHREIBEN ***
3 :
4 REM DIESES PRG (W) BY FLORIAN MUELLER
5 REM MEGADRIVER (W) BY THOMAS BEIGEL
6 :
10 PRINT"DISKETTE MIT INSTALLIERTEM TREIBER EIN- LEGEN UND <RETURN> DRUECKEN"
20 GETA$:IFA$<>CHR$(13) THEN 20
30 OPEN1,8,15,"I"
40 OPEN2,8,2,"#"
50 PRINT#1,"U1 2 0 17 0"
60 PRINT#1,"B-P 2 41"
70 GET#2,A$
80 PRINTCHR$(147)"ANZAHL DER DRUCKVORGAENGE PRO ZEILE:";ASC(A$)
90 INPUT "NEUE ANZAHL";A
100 IF A<>INT(A) OR A<1 OR A>255 THEN 90
110 PRINT#1,"B-P 2 41":PRINT#2,CHR$(A);:PRINT#1,"U2 2 0 17 0"
120 CLOSE2:INPUT#1,A,A$,B,C:PRINTA;A$;B;C:CLOSE1